home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / LOCATE-3.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  402 b   |  19 lines
  1. ' LOCATE-3.BAS
  2. ' This program demonstrates simple animation.
  3.  
  4. CLS
  5.  
  6. LOCATE 10, 1            ' position the first X
  7. PRINT "X"
  8. FOR i% = 2 TO 80        ' loop through the rest
  9.     LOCATE 10, i%
  10.     PRINT "X"           ' print an X next to the previous X
  11.     LOCATE 10, i% - 1
  12.     PRINT " "           ' "erase" the previous X
  13.    
  14.     FOR j% = 1 TO 300   ' delay loop
  15.     NEXT j%
  16.  
  17. NEXT i%
  18.  
  19.